home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / share / demolar / Quark / data.z / QuarkXPress 4.0 Demo.exe / 0 / PSHD / 1000 next >
Encoding:
Text File  |  1998-01-08  |  552 b   |  9 lines
  1. /setcustomcolor where{pop/docust{save 1 index 4 get
  2.  [.5 .5 .5 0 6 -1 roll] 1 setcustomcolor currentgray
  3.  exch restore dup 1 eq exch 0 eq or}B}{/docust{F}B/setcustomcolor
  4.  {exch aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}B}ifelse
  5. /setcustc{/custprsnt T def/regsh -1 def/custsh X dup length custnamstr dup 79
  6.  3 index put 0 3 -1 roll getinterval copy custar astore custsh setcustomcolor}B
  7. /findcmykcustomcolor where{pop}{/findcmykcustomcolor{5 array astore readonly}B}ifelse
  8. /setoverprint where{pop}{/setoverprint{pop}B}ifelse
  9.